Bitwise operators program in Perl